home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Misc / bgui / Examples / Source / BGUIDemo.c < prev    next >
C/C++ Source or Header  |  2000-05-09  |  48KB  |  1,263 lines
  1. /*
  2.  * @(#) $Header: /cvsroot/bgui/examples/BGUIDemo.c,v 41.11 2000/05/09 20:33:12 mlemos Exp $
  3.  *
  4.  * BGUIDemo.c
  5.  *
  6.  * (C) Copyright 1998 Manuel Lemos.
  7.  * (C) Copyright 1995 Jaba Development.
  8.  * (C) Copyright 1995 Jan van den Baard.
  9.  * All Rights Reserved.
  10.  *
  11.  * $Log: BGUIDemo.c,v $
  12.  * Revision 41.11  2000/05/09 20:33:12  mlemos
  13.  * Bumped to revision 41.11
  14.  *
  15.  * Revision 1.2  2000/05/09 19:58:33  mlemos
  16.  * Merged with the branch Manuel_Lemos_fixes.
  17.  *
  18.  * Revision 1.1.2.5  1999/02/19 05:03:47  mlemos
  19.  * Added support to build with Storm C.
  20.  *
  21.  * Revision 1.1.2.4  1998/12/08 03:54:25  mlemos
  22.  * Associated tooltip texts to the buttons of the main window.
  23.  *
  24.  * Revision 1.1.2.3  1998/12/07 00:12:46  mlemos
  25.  * Made the pages tabs and radio button be activated usning the keyboard.
  26.  *
  27.  * Revision 1.1.2.2  1998/03/01 20:32:48  mlemos
  28.  * Ensured that the stack is never less than 8000 bytes.
  29.  *
  30.  * Revision 1.1.2.1  1998/02/28 17:44:57  mlemos
  31.  * Ian sources
  32.  *
  33.  *
  34.  */
  35.  
  36. /* Execute me to compile with DICE V3.0
  37. dcc BGUIDemo.c -proto -mi -ms -mRR -lbgui
  38. quit
  39. */
  40.  
  41. #ifndef __STORM__
  42. long __stack=8000;
  43. #endif /* __STORM__ */
  44.  
  45. #include "DemoCode.h"
  46.  
  47. /*
  48. ** Online-Help texts.
  49. **/
  50. UBYTE    *MainHelp      = ISEQ_C "BGUI is a shared library which offers a set of\n"
  51.                  "BOOPSI classes to allow for easy and flexible GUI creation.\n\n"
  52.                  "The main window is also an AppWindow. Drop some icons\n"
  53.                  "on it and see what happens.\n\n"
  54.                  "All windows also detect the aspect ratio of the screen they are\n"
  55.                  "located on and adjust frame thickness accoording to this.\n\n"
  56.                  "All other windows in this demo also have online-help. To access\n"
  57.                  "this help press the " ISEQ_B "HELP" ISEQ_N " key when the window is active.";
  58.  
  59. UBYTE    *GroupsHelp    = ISEQ_C "The BGUI layout engine is encapsulated in the groupclass.\n"
  60.                  "The groupclass will layout all of it's members into a specific area.\n"
  61.                  "You can pass layout specific attributes to all group members\n"
  62.                  "which allows for flexible and powerful layout capabilities.";
  63.  
  64. UBYTE    *NotifHelp     = ISEQ_C "Notification can be used to let an object keep one or\n"
  65.                  "more other objects informed about it's status. BGUI offers several\n"
  66.                  "kinds of notification of which two (conditional and map-list) are\n"
  67.                  "shown in this demonstration.";
  68.  
  69. UBYTE    *InfoHelp      = ISEQ_C "Not much more can be said about the BGUI infoclass than\n"
  70.                  "is said in this window. Except maybe that this text is shown in an\n"
  71.                  "infoclass object as are all body texts from a BGUI requester.";
  72.  
  73. UBYTE    *ImageHelp     = ISEQ_C "This window shows you the built-in images that BGUI has\n"
  74.                  "to offer. Ofcourse these images are all scalable and it is possible\n"
  75.                  "to create your own, scalable, imagery with the BGUI vectorclass.";
  76.  
  77. UBYTE    *BackfillHelp     = ISEQ_C "Here you see the built-in backfill patterns BGUI supports.\n"
  78.                  "These backfill patterns can all be used in groups and frames.\n"
  79.                  "The frameclass also offers you the possibility to add hooks for\n"
  80.                  "custom backfills and frame rendering.\n\n"
  81.                  "The bottom frame shows you a custom backfill hook which renders a\n"
  82.                  "simple pattern known from the WBPattern prefs editor as background.";
  83.  
  84. UBYTE    *PagesHelp     = ISEQ_C "The pageclass allows you to setup a set of pages containing\n"
  85.                  "BGUI gadgets or groups. This will give you the oppertunity to\n"
  86.                  "have several set's of gadgets in a single window.\n\n"
  87.                  "This window has a IDCMP-hook installed which allows you to\n"
  88.                  "control the Tabs object with your TAB key.";
  89.  
  90.  
  91. /*
  92. ** Window objects.
  93. **/
  94. Object      *WA_Main  = NULL, *WA_Groups = NULL, *WA_Notif = NULL;
  95. Object      *WA_Info  = NULL, *WA_Image  = NULL, *WA_BFill = NULL;
  96. Object      *WA_Pages = NULL;
  97.  
  98. /*
  99. ** Gadget objects from the main window.
  100. **/
  101. Object      *BT_Groups,   *BT_Notif,    *BT_Quit;
  102. Object      *BT_Info,     *BT_Images,   *BT_BFill;
  103. Object      *BT_Pages,    *BT_IconDone, *BT_IconQuit;
  104. Object      *LV_IconList, *PG_Pager;
  105.  
  106. /*
  107. ** One, shared, message port for all
  108. ** demo windows.
  109. **/
  110. struct MsgPort *SharedPort;
  111.  
  112. /*
  113. ** Menus & gadget ID's.
  114. **/
  115. #define ID_ABOUT     1L
  116. #define ID_QUIT                 2L
  117.  
  118. /*
  119. ** A small menu strip.
  120. **/
  121. struct NewMenu MainMenus[] = {
  122.    Title( "Project" ),
  123.       Item( "About...", "?", ID_ABOUT ),
  124.       ItemBar,
  125.       Item( "Quit",     "Q", ID_QUIT  ),
  126.    End
  127. };
  128.  
  129. /*
  130. ** Put up a simple requester.
  131. **/
  132. ULONG Req( struct Window *win, UBYTE *gadgets, UBYTE *body, ... )
  133. {
  134.    struct bguiRequest   req = { NULL };
  135.  
  136.    req.br_GadgetFormat  = gadgets;
  137.    req.br_TextFormat = body;
  138.    req.br_Flags      = BREQF_CENTERWINDOW|BREQF_XEN_BUTTONS|BREQF_AUTO_ASPECT;
  139.  
  140.    return( BGUI_RequestA( win, &req, ( ULONG * )( &body + 1 )));
  141. }
  142.  
  143. /*
  144. ** Main window button ID's.
  145. **/
  146. #define ID_MAIN_GROUPS     3L
  147. #define ID_MAIN_NOTIF      4L
  148. #define ID_MAIN_INFO    5L
  149. #define ID_MAIN_IMAGE      6L
  150. #define ID_MAIN_BFILL      7L
  151. #define ID_MAIN_PAGES      8L
  152. #define ID_MAIN_ICON_CONT  9L
  153.  
  154. /*
  155. ** Open main window.
  156. **/
  157. struct Window *OpenMainWindow( ULONG *appmask )
  158. {
  159.    struct Window     *window = NULL;
  160.  
  161.    WA_Main = WindowObject,
  162.       WINDOW_Title,           "BGUI Demo",
  163.       WINDOW_ScreenTitle,     "BGUI Demo - ©1996 Ian J. Einman, ©1993-1995 Jaba Development.",
  164.       WINDOW_MenuStrip,       MainMenus,
  165.       WINDOW_SmartRefresh,    TRUE,
  166.       WINDOW_AppWindow,       TRUE,
  167.       WINDOW_SizeGadget,      FALSE,
  168.       WINDOW_HelpText,        MainHelp,
  169.       WINDOW_AutoAspect,      TRUE,
  170.       WINDOW_SharedPort,      SharedPort,
  171.       WINDOW_AutoKeyLabel,    TRUE,
  172.       WINDOW_ScaleWidth,      10,
  173.       WINDOW_CloseOnEsc,      TRUE,
  174.       WINDOW_MasterGroup,
  175.          VGroupObject, NormalOffset, NormalSpacing, GROUP_BackFill, SHINE_RASTER,
  176.             StartMember,
  177.                PG_Pager = PageObject,
  178.                   /*
  179.                   ** Main page.
  180.                   **/
  181.                   PageMember,
  182.                      VGroupObject, WideSpacing, GROUP_BackFill, SHINE_RASTER,
  183.                         StartMember,
  184.                            InfoObject,
  185.                               INFO_TextFormat, ISEQ_C
  186.                                        ISEQ_HIGHLIGHT
  187.                                        "\033s\033bBGUI Demo\n"
  188.                                        ISEQ_TEXT
  189.                                        ISEQ_N
  190.                                        "©1996 Ian J. Einman\n"
  191.                                        "©1993-1995 Jaba Development\n\n"
  192.                                        "\033iPress the HELP key for more info.",
  193.                               INFO_FixTextWidth,   TRUE,
  194.                               INFO_MinLines,    5,
  195.                               FRM_Type,      FRTYPE_NEXT,
  196.                            EndObject,
  197.                         EndMember,
  198.                         StartMember,
  199.                            HGroupObject, NormalSpacing,
  200.                               StartMember,
  201.                                  VGroupObject, NormalSpacing,
  202.                                     StartMember,
  203.                                        BT_Groups = ButtonObject,
  204.                                           LAB_Label, "_Groups",
  205.                                           GA_ID, ID_MAIN_GROUPS, 
  206.                                           BT_ToolTip, "Shows different group layouts",
  207.                                        EndObject,
  208.                                     EndMember,
  209.                                     StartMember,
  210.                                        BT_Notif = ButtonObject,
  211.                                           LAB_Label, "_Notification",
  212.                                           GA_ID, ID_MAIN_NOTIF, 
  213.                                           BT_ToolTip, "Shows notification between gadgets",
  214.                                        EndObject,
  215.                                     EndMember,
  216.                                     VarSpace( DEFAULT_WEIGHT ),
  217.                                  EndObject,
  218.                               EndMember,
  219.                               StartMember,
  220.                                  VGroupObject, NormalSpacing,
  221.                                     StartMember,
  222.                                        BT_Images = ButtonObject,
  223.                                           LAB_Label, "_Images",
  224.                                           GA_ID, ID_MAIN_IMAGE, 
  225.                                           BT_ToolTip, "Shows different types of built-in images",
  226.                                        EndObject,
  227.                                     EndMember,
  228.                                     StartMember,
  229.                                        BT_BFill = ButtonObject,
  230.                                           LAB_Label, "_BackFill",
  231.                                           GA_ID, ID_MAIN_BFILL, 
  232.                                           BT_ToolTip, "Shows different types of background filling",
  233.                                        EndObject,
  234.                                     EndMember,
  235.                                     StartMember,
  236.                                        BT_Quit = ButtonObject,
  237.                                           LAB_Label, "_Quit",
  238.                                           GA_ID, ID_QUIT, 
  239.                                           BT_ToolTip, "Quits this program",
  240.                                        EndObject,
  241.                                     EndMember,
  242.                                  EndObject,
  243.                               EndMember,
  244.                               StartMember,
  245.                                  VGroupObject, NormalSpacing,
  246.                                     StartMember,
  247.                                        BT_Pages = ButtonObject,
  248.                                           LAB_Label, "_Pages",
  249.                                           GA_ID, ID_MAIN_PAGES, 
  250.                                           BT_ToolTip, "Shows paged of groups",
  251.                                        EndObject,
  252.                                     EndMember,
  253.                                     StartMember,
  254.                                        BT_Info = ButtonObject,
  255.                                           LAB_Label, "Info_Class",
  256.                                           GA_ID, ID_MAIN_INFO,
  257.                                           BT_ToolTip, "Shows the Information gadget",
  258.                                        EndObject,
  259.                                     EndMember,
  260.                                     VarSpace( DEFAULT_WEIGHT ),
  261.                                  EndObject,
  262.                               EndMember,
  263.                            EndObject, FixMinHeight, EqualWidth,
  264.                         EndMember,
  265.                      EndObject,
  266.                   /*
  267.                   ** Icon-drop list page.
  268.                   **/
  269.                   PageMember,
  270.                      VGroupObject, NormalSpacing, GROUP_BackFill, SHINE_RASTER,
  271.                         StartMember,
  272.                            InfoObject,
  273.                               INFO_TextFormat,  ISEQ_C
  274.                                        "The following icons were dropped\n"
  275.                                        "in the window:",
  276.                               INFO_FixTextWidth,   TRUE,
  277.                               INFO_MinLines,    2,
  278.                               INFO_HorizOffset, 13,
  279.                               FRM_Type,      FRTYPE_BUTTON,
  280.                               FRM_Recessed,     TRUE,
  281.                            EndObject, FixMinHeight,
  282.                         EndMember,
  283.                         StartMember,
  284.                            LV_IconList = ListviewObject,
  285.                               LISTV_ReadOnly,         TRUE,
  286.                            EndObject,
  287.                         EndMember,
  288.                         StartMember,
  289.                            HGroupObject,
  290.                               StartMember, BT_IconDone = PrefButton( "_Continue", ID_MAIN_ICON_CONT ), EndMember,
  291.                               VarSpace( DEFAULT_WEIGHT ),
  292.                               StartMember, BT_IconQuit = PrefButton( "_Quit",     ID_QUIT ), EndMember,
  293.                            EndObject, FixMinHeight,
  294.                         EndMember,
  295.                      EndObject,
  296.                EndObject,
  297.             EndMember,
  298.          EndObject,
  299.    EndObject;
  300.  
  301.    /*
  302.    ** Object created OK?
  303.    **/
  304.    if ( WA_Main ) {
  305.       /*
  306.       ** Open the window.
  307.       **/
  308.       if ( window = WindowOpen( WA_Main )) {
  309.          /*
  310.          ** Obtain appwindow signal mask.
  311.          **/
  312.          GetAttr( WINDOW_AppMask, WA_Main, appmask );
  313.       }
  314.    }
  315.  
  316.    return( window );
  317. }
  318.  
  319. /*
  320. ** Macros for the group objects. GObj() creates
  321. ** a simple infoclass object with some text in
  322. ** it. TObj() creates a simple groupclass object
  323. ** with a button frame.
  324. **/
  325. #define GObj(t)\
  326.    InfoObject,\
  327.       INFO_TextFormat,  t,\
  328.       INFO_FixTextWidth,   TRUE,\
  329.       INFO_HorizOffset, 4,\
  330.       INFO_VertOffset,  3,\
  331.       ButtonFrame,\
  332.       FRM_Flags,     FRF_RECESSED,\
  333.    EndObject
  334.  
  335. #define NWObj(v,id)\
  336.    StringObject,\
  337.       STRINGA_LongVal,       v,\
  338.       STRINGA_MaxChars,      3,\
  339.       STRINGA_IntegerMin,    1,\
  340.       STRINGA_IntegerMax,    999,\
  341.       STRINGA_Justification, GACT_STRINGCENTER,\
  342.       GA_ID,                 id,\
  343.       FuzzRidgeFrame,\
  344.    EndObject, Weight(v)
  345.  
  346. #define TObj\
  347.    HGroupObject, HOffset(4), VOffset(3),\
  348.       ButtonFrame,\
  349.       FRM_BackFill,  FILL_RASTER,\
  350.       FRM_Flags,     FRF_RECESSED,\
  351.    EndObject
  352.  
  353. #define ID_GROUP_W0 500
  354. #define ID_GROUP_W1 501
  355. #define ID_GROUP_W2 502
  356. #define ID_GROUP_W3 503
  357.  
  358. Object *w[4] = { NULL, NULL, NULL, NULL };
  359.  
  360. /*
  361. ** Open up the groups window.
  362. **/
  363. struct Window *OpenGroupsWindow( void )
  364. {
  365.    struct Window        *window = NULL;
  366.  
  367.    /*
  368.    ** If the object has not been created
  369.    ** already we build it.
  370.    **/
  371.    if ( ! WA_Groups ) {
  372.       WA_Groups = WindowObject,
  373.          WINDOW_Title,        "BGUI Groups",
  374.          WINDOW_RMBTrap,      TRUE,
  375.          WINDOW_SmartRefresh, TRUE,
  376.          WINDOW_HelpText,     GroupsHelp,
  377.          WINDOW_AutoAspect,   TRUE,
  378.          WINDOW_SharedPort,   SharedPort,
  379.          WINDOW_ScaleWidth,   20,
  380.          WINDOW_ScaleHeight,  20,
  381.          WINDOW_MasterGroup,
  382.             VGroupObject, NormalOffset, NormalSpacing,
  383.                StartMember,
  384.                   HGroupObject, WideSpacing,
  385.                      StartMember,
  386.                         HGroupObject, NeXTFrame, FrameTitle( "Horizontal" ), NormalSpacing,
  387.                            NormalHOffset, TOffset(GRSPACE_NARROW), BOffset(GRSPACE_NORMAL),
  388.                            StartMember, TObj, EndMember,
  389.                            StartMember, TObj, EndMember,
  390.                            StartMember, TObj, EndMember,
  391.                         EndObject,
  392.                      EndMember,
  393.                      StartMember,
  394.                         VGroupObject, NeXTFrame, FrameTitle( "Vertical" ), NormalSpacing,
  395.                            NormalHOffset, TOffset(GRSPACE_NARROW), BOffset(GRSPACE_NORMAL),
  396.                            StartMember, TObj, EndMember,
  397.                            StartMember, TObj, EndMember,
  398.                            StartMember, TObj, EndMember,
  399.                         EndObject,
  400.                      EndMember,
  401.                      StartMember,
  402.                         VGroupObject, NeXTFrame, FrameTitle( "Grid" ), NormalSpacing,
  403.                            NormalHOffset, TOffset(GRSPACE_NARROW), BOffset(GRSPACE_NORMAL),
  404.                            StartMember,
  405.                               HGroupObject, NormalSpacing,
  406.                                  StartMember, TObj, EndMember,
  407.                                  StartMember, TObj, EndMember,
  408.                                  StartMember, TObj, EndMember,
  409.                               EndObject,
  410.                            EndMember,
  411.                            StartMember,
  412.                               HGroupObject, NormalSpacing,
  413.                                  StartMember, TObj, EndMember,
  414.                                  StartMember, TObj, EndMember,
  415.                                  StartMember, TObj, EndMember,
  416.                               EndObject,
  417.                            EndMember,
  418.                            StartMember,
  419.                               HGroupObject, NormalSpacing,
  420.                                  StartMember, TObj, EndMember,
  421.                                  StartMember, TObj, EndMember,
  422.                                  StartMember, TObj, EndMember,
  423.                               EndObject,
  424.                            EndMember,
  425.                         EndObject,
  426.                      EndMember,
  427.                   EndObject,
  428.                EndMember,
  429.                StartMember,
  430.                   VGroupObject, NormalSpacing, FrameTitle("Free, Fixed and Weight sizes."), NeXTFrame,
  431.                      NormalHOffset, TOffset(GRSPACE_NARROW), BOffset(GRSPACE_NORMAL),
  432.                      StartMember,
  433.                         HGroupObject, NormalSpacing,
  434.                            StartMember, w[0] = NWObj( 25, ID_GROUP_W0), EndMember,
  435.                            StartMember, w[1] = NWObj( 50, ID_GROUP_W1), EndMember,
  436.                            StartMember, w[2] = NWObj( 75, ID_GROUP_W2), EndMember,
  437.                            StartMember, w[3] = NWObj(100, ID_GROUP_W3), EndMember,
  438.                         EndObject,
  439.                      EndMember,
  440.                      StartMember,
  441.                         HGroupObject, NormalSpacing,
  442.                            StartMember, GObj( ISEQ_C   "Free"  ), EndMember,
  443.                            StartMember, GObj( ISEQ_C ISEQ_B "Fixed" ), FixMinWidth, EndMember,
  444.                            StartMember, GObj( ISEQ_C   "Free"  ), EndMember,
  445.                            StartMember, GObj( ISEQ_C ISEQ_B "Fixed" ), FixMinWidth, EndMember,
  446.                         EndObject,
  447.                      EndMember,
  448.                   EndObject, FixMinHeight,
  449.                EndMember,
  450.             EndObject,
  451.       EndObject;
  452.    }
  453.  
  454.    /*
  455.    ** Object OK?
  456.    **/
  457.    if ( WA_Groups ) {
  458.       /*
  459.       ** Open the window.
  460.       **/
  461.       window = WindowOpen( WA_Groups );
  462.    }
  463.  
  464.    return( window );
  465. }
  466.  
  467. /*
  468. ** Cycle gadget labels.
  469. **/
  470. UBYTE *NotifLabels[] = { "Enabled-->", "Disabled-->", "Still Disabled-->", NULL };
  471.  
  472. /*
  473. ** Notification map-lists.
  474. **/
  475. ULONG pga2sl[] = { PGA_Top,       SLIDER_Level,  TAG_END };
  476. ULONG sl2prg[] = { SLIDER_Level,  PROGRESS_Done, TAG_END };
  477. ULONG prg2in[] = { PROGRESS_Done, INDIC_Level,   TAG_END };
  478.  
  479. /*
  480. ** Open the notification window.
  481. **/
  482. struct Window *OpenNotifWindow( void )
  483. {
  484.    struct Window        *window = NULL;
  485.    Object            *c, *b, *p1, *p2, *s1, *s2, *p, *i1, *i2;
  486.  
  487.    /*
  488.    ** Not created yet? Create it now!
  489.    **/
  490.    if ( ! WA_Notif ) {
  491.       WA_Notif = WindowObject,
  492.          WINDOW_Title,     "BGUI notification",
  493.          WINDOW_RMBTrap,         TRUE,
  494.          WINDOW_SmartRefresh, TRUE,
  495.          WINDOW_HelpText,  NotifHelp,
  496.          WINDOW_AutoAspect,   TRUE,
  497.          WINDOW_SharedPort,   SharedPort,
  498.          WINDOW_MasterGroup,
  499.             VGroupObject, NormalOffset, NormalSpacing,
  500.                StartMember, TitleSeperator( "Conditional" ), EndMember,
  501.                StartMember,
  502.                   HGroupObject, NormalSpacing,
  503.                      StartMember, c = PrefCycle( NULL, NotifLabels, 0, 0 ), EndMember,
  504.                      StartMember, b = PrefButton( "Target", 0 ), EndMember,
  505.                   EndObject, FixMinHeight,
  506.                EndMember,
  507.                StartMember, TitleSeperator( "Map-List" ), EndMember,
  508.                StartMember,
  509.                   HGroupObject, NormalSpacing,
  510.                      StartMember,
  511.                         VGroupObject, NormalSpacing,
  512.                            StartMember, i1 = IndicatorFormat( 0, 100, 0, IDJ_CENTER, "%ld%%" ), FixMinHeight, EndMember,
  513.                            StartMember, p1 = HorizProgress( NULL, 0, 100, 0 ), EndMember,
  514.                         EndObject,
  515.                      EndMember,
  516.                      StartMember, s1 = VertSlider( NULL, 0, 100, 0, 0 ), FixWidth( 16 ), EndMember,
  517.                      StartMember, p = VertScroller( NULL, 0, 101, 1, 0 ), FixWidth( 16 ), EndMember,
  518.                      StartMember, s2 = VertSlider( NULL, 0, 100, 0, 0 ), FixWidth( 16 ), EndMember,
  519.                      StartMember,
  520.                         VGroupObject, NormalSpacing,
  521.                            StartMember, i2 = IndicatorFormat( 0, 100, 0, IDJ_CENTER, "%ld%%" ), FixMinHeight, EndMember,
  522.                            StartMember, p2 = VertProgress( NULL, 0, 100, 0 ), EndMember,
  523.                         EndObject,
  524.                      EndMember,
  525.                   EndObject,
  526.                EndMember,
  527.             EndObject,
  528.       EndObject;
  529.  
  530.       if ( WA_Notif ) {
  531.          /*
  532.          ** Connect the cycle object with the button.
  533.          **/
  534.          AddCondit( c, b, CYC_Active, 0, GA_Disabled, FALSE, GA_Disabled, TRUE );
  535.          /*
  536.          ** Connect sliders, prop, progression and indicators.
  537.          **/
  538.          AddMap( s1, p1, sl2prg );
  539.          AddMap( s2, p2, sl2prg );
  540.          AddMap( p,  s1, pga2sl );
  541.          AddMap( p,  s2, pga2sl );
  542.          AddMap( p1, i1, prg2in );
  543.          AddMap( p2, i2, prg2in );
  544.       }
  545.    }
  546.  
  547.    /*
  548.    ** Object OK?
  549.    **/
  550.    if ( WA_Notif ) {
  551.       /*
  552.       ** Open window.
  553.       **/
  554.       window = WindowOpen( WA_Notif );
  555.    }
  556.  
  557.    return( window );
  558. }
  559.  
  560. /*
  561. ** Open infoclass window.
  562. **/
  563. struct Window *OpenInfoWindow( void )
  564. {
  565.    struct Window        *window = NULL;
  566.    ULONG           args[2];
  567.  
  568.    /*
  569.    ** Setup arguments for the
  570.    ** infoclass object.
  571.    **/
  572.    args[0] = AvailMem( MEMF_CHIP );
  573.    args[1] = AvailMem( MEMF_FAST );
  574.  
  575.    /*
  576.    ** Not created already?
  577.    **/
  578.    if ( ! WA_Info ) {
  579.       WA_Info = WindowObject,
  580.          WINDOW_Title,     "BGUI information class",
  581.          WINDOW_RMBTrap,         TRUE,
  582.          WINDOW_SmartRefresh, TRUE,
  583.          WINDOW_HelpText,  InfoHelp,
  584.          WINDOW_AutoAspect,   TRUE,
  585.          WINDOW_SharedPort,   SharedPort,
  586.          WINDOW_MasterGroup,
  587.             VGroupObject, HOffset( 4 ), VOffset( 4 ),
  588.                StartMember,
  589.                   InfoFixed( NULL,
  590.                         ISEQ_C "BGUI offers the InfoClass.\n"
  591.                         "This class is a text display class which\n"
  592.                         "allows things like:\n\n"
  593.                         ISEQ_SHINE    "C"
  594.                         ISEQ_SHADOW   "o"
  595.                         ISEQ_FILL     "l"
  596.                         ISEQ_FILLTEXT  "o"
  597.                         ISEQ_HIGHLIGHT "r"
  598.                         ISEQ_TEXT     "s\n\n"
  599.                         ISEQ_L "Left Aligned...\n"
  600.                         ISEQ_R "Right Aligned...\n"
  601.                         ISEQ_C "Centered...\n\n"
  602.                         ISEQ_B "Bold...\n"   ISEQ_N
  603.                         ISEQ_I "Italic...\n" ISEQ_N
  604.                         ISEQ_U "Underlined...\n\n"
  605.                         ISEQ_B ISEQ_I "And combinations!\n\n"
  606.                         ISEQ_N "Free CHIP:" ISEQ_SHINE " %lD" ISEQ_TEXT", Free FAST:" ISEQ_SHINE " %lD\n",
  607.                         &args[ 0 ],
  608.                         17 ),
  609.                EndMember,
  610.             EndObject,
  611.       EndObject;
  612.    }
  613.  
  614.    /*
  615.    ** Object OK?
  616.    **/
  617.    if ( WA_Info ) {
  618.       /*
  619.       ** Open window.
  620.       **/
  621.       window = WindowOpen( WA_Info );
  622.    }
  623.  
  624.    return( window );
  625. }
  626.  
  627. /*
  628. ** Open images window.
  629. **/
  630. struct Window *OpenImageWindow( void )
  631. {
  632.    struct Window        *window = NULL;
  633.  
  634.    /*
  635.    ** Not yet created?
  636.    **/
  637.    if ( ! WA_Image ) {
  638.       WA_Image = WindowObject,
  639.          WINDOW_Title,        "BGUI images",
  640.          WINDOW_RMBTrap,      TRUE,
  641.          WINDOW_SmartRefresh, TRUE,
  642.          WINDOW_HelpText,     ImageHelp,
  643.          WINDOW_AutoAspect,   TRUE,
  644.          WINDOW_SharedPort,   SharedPort,
  645.          WINDOW_ScaleHeight,  10,
  646.          WINDOW_MasterGroup,
  647.             VGroupObject, NormalOffset, WideSpacing,
  648.                StartMember,
  649.                   HGroupObject, TOffset(GRSPACE_NARROW), BOffset(GRSPACE_NORMAL), NormalSpacing, NeXTFrame, FrameTitle("Fixed size"),
  650.                      VarSpace(DEFAULT_WEIGHT),
  651.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_GETPATH,     ButtonFrame, EndObject, FixMinSize, EndMember,
  652.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_GETFILE,     ButtonFrame, EndObject, FixMinSize, EndMember,
  653.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_POPUP,       ButtonFrame, EndObject, FixMinSize, EndMember,
  654.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_CYCLE,       ButtonFrame, EndObject, FixMinSize, EndMember,
  655.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_CYCLE2,      ButtonFrame, EndObject, FixMinSize, EndMember,
  656.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_CHECKMARK,   ButtonFrame, EndObject, FixMinSize, EndMember,
  657.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_UP,    ButtonFrame, EndObject, FixMinSize, EndMember,
  658.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_DOWN,  ButtonFrame, EndObject, FixMinSize, EndMember,
  659.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_LEFT,  ButtonFrame, EndObject, FixMinSize, EndMember,
  660.                      StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_RIGHT, ButtonFrame, EndObject, FixMinSize, EndMember,
  661.                      VarSpace(DEFAULT_WEIGHT),
  662.                   EndObject, FixMinHeight,
  663.                EndMember,
  664.                StartMember,
  665.                   VGroupObject, NormalHOffset, TOffset(GRSPACE_NARROW), BOffset(GRSPACE_NORMAL), NormalSpacing, NeXTFrame, FrameTitle("Free size"),
  666.                      StartMember,
  667.                         HGroupObject, NormalSpacing,
  668.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_GETPATH,     ButtonFrame, EndObject, EndMember,
  669.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_GETFILE,     ButtonFrame, EndObject, EndMember,
  670.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_POPUP,       ButtonFrame, EndObject, EndMember,
  671.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_CYCLE,       ButtonFrame, EndObject, EndMember,
  672.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_CYCLE2,      ButtonFrame, EndObject, EndMember,
  673.                         EndObject,
  674.                      EndMember,
  675.                      StartMember,
  676.                         HGroupObject, NormalSpacing,
  677.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_CHECKMARK,   ButtonFrame, EndObject, EndMember,
  678.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_UP,    ButtonFrame, EndObject, EndMember,
  679.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_DOWN,  ButtonFrame, EndObject, EndMember,
  680.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_LEFT,  ButtonFrame, EndObject, EndMember,
  681.                            StartMember, ButtonObject, VIT_BuiltIn, BUILTIN_ARROW_RIGHT, ButtonFrame, EndObject, EndMember,
  682.                         EndObject,
  683.                      EndMember,
  684.                   EndObject,
  685.                EndMember,
  686.             EndObject,
  687.       EndObject;
  688.    }
  689.  
  690.    /*
  691.    ** Object OK?
  692.    **/
  693.    if ( WA_Image ) {
  694.       /*
  695.       ** Open the window.
  696.       **/
  697.       window = WindowOpen( WA_Image );
  698.    }
  699.  
  700.    return( window );
  701. }
  702.  
  703. /*
  704. ** The BackFill hook to show custom backfills.
  705. ** Renders a pattern from the WBPattern preferences
  706. ** editor as back-fill.
  707. **/
  708. #ifdef __STORM__
  709. ULONG SAVEDS ASM
  710. #else
  711. SAVEDS ASM ULONG
  712. #endif
  713. BackFillHook( REG(a0) struct Hook *hook, REG(a2) Object *imo, REG(a1) struct FrameDrawMsg *fdm )
  714. {
  715.    UWORD pat[] =
  716.    {
  717.       0x0000, 0x0000, 0x0002, 0x0002, 0x000A, 0x000A, 0x002A, 0x002A,
  718.       0x00AA, 0x002A, 0x03EA, 0x000A, 0x0FFA, 0x0002, 0x3FFE, 0x0000,
  719.       0x0000, 0x7FFC, 0x4000, 0x5FF0, 0x5000, 0x57C0, 0x5400, 0x5500,
  720.       0x5400, 0x5400, 0x5000, 0x5000, 0x4000, 0x4000, 0x0000, 0x0000,
  721.    };
  722.  
  723.    fdm->fdm_RPort->Mask = 0x03;
  724.    SetAfPt( fdm->fdm_RPort, pat, -4 );
  725.    SetAPen( fdm->fdm_RPort, ( 1 << fdm->fdm_DrawInfo->dri_Depth ) - 1 );
  726.    RectFill( fdm->fdm_RPort, fdm->fdm_Bounds->MinX, fdm->fdm_Bounds->MinY,
  727.               fdm->fdm_Bounds->MaxX, fdm->fdm_Bounds->MaxY );
  728.    SetAfPt( fdm->fdm_RPort, NULL, 0 );
  729.  
  730.    return( FRC_OK );
  731. }
  732.  
  733. /*
  734. ** The hook structure.
  735. **/
  736. struct Hook BackFill = {
  737.    NULL, NULL, (HOOKFUNC)BackFillHook, NULL, NULL
  738. };
  739.  
  740. /*
  741. ** Open back-fill window.
  742. **/
  743. struct Window *OpenFillWindow( void )
  744. {
  745.    struct Window        *window = NULL;
  746.    struct Screen        *screen = LockPubScreen(NULL);
  747.  
  748.    static struct bguiPattern bp;
  749.    
  750.    /*
  751.    ** Not yet created?
  752.    **/
  753.    if ( ! WA_BFill ) {
  754.       WA_BFill = WindowObject,
  755.          WINDOW_Title,           "BGUI back fill patterns",
  756.          WINDOW_RMBTrap,         TRUE,
  757.          WINDOW_SmartRefresh,    TRUE,
  758.          WINDOW_HelpText,        BackfillHelp,
  759.          WINDOW_ScaleWidth,      40,
  760.          WINDOW_ScaleHeight,     40,
  761.          WINDOW_AutoAspect,      TRUE,
  762.          WINDOW_SharedPort,      SharedPort,
  763.          WINDOW_PubScreen,       screen,
  764.          WINDOW_MasterGroup,
  765.             HGroupObject, NormalOffset, WideSpacing,
  766.                StartMember,
  767.                   VGroupObject, NormalOffset, NeXTFrame, FrameTitle("Raster Fill"), NormalSpacing,
  768.                      StartMember,
  769.                         HGroupObject, NormalSpacing,
  770.                            StartMember, InfoObject, ButtonFrame, ShineRaster,  EndObject, EndMember,
  771.                            StartMember, InfoObject, ButtonFrame, ShadowRaster, EndObject, EndMember,
  772.                            StartMember, InfoObject, ButtonFrame, ShineShadowRaster, EndObject, EndMember,
  773.                            StartMember, InfoObject, ButtonFrame, FillRaster,   EndObject, EndMember,
  774.                         EndObject,
  775.                      EndMember,
  776.                      StartMember,
  777.                         HGroupObject, NormalSpacing,
  778.                            StartMember, InfoObject, ButtonFrame, ShineFillRaster,   EndObject, EndMember,
  779.                            StartMember, InfoObject, ButtonFrame, ShadowFillRaster, EndObject, EndMember,
  780.                            StartMember, InfoObject, ButtonFrame, ShineBlock,  EndObject, EndMember,
  781.                            StartMember, InfoObject, ButtonFrame, ShadowBlock, EndObject, EndMember,
  782.                         EndObject,
  783.                      EndMember,
  784.                   EndObject,
  785.                EndMember,
  786.                StartMember,
  787.                   VGroupObject, NormalOffset, NeXTFrame, FrameTitle("Custom Hook"),
  788.                      StartMember,
  789.                         InfoObject, ButtonFrame, FRM_BackFillHook, &BackFill, EndObject,
  790.                      EndMember,
  791.                   EndObject,
  792.                EndMember,
  793.                StartMember,
  794.                   VGroupObject, NormalOffset, NeXTFrame, FrameTitle("Bitmap Pattern"),
  795.                      StartMember,
  796.                         InfoObject, ButtonFrame, FRM_FillPattern, &bp, EndObject,
  797.                      EndMember,
  798.                   EndObject,
  799.                EndMember,
  800.             EndObject,
  801.       EndObject;
  802.    }
  803.    UnlockPubScreen(NULL, screen);
  804.  
  805.    /*
  806.    ** Object OK?
  807.    **/
  808.    if (WA_BFill)
  809.    {
  810.       bp.bp_Flags    = 0;
  811.       bp.bp_Left     = 0;
  812.       bp.bp_Top      = 0;
  813.       bp.bp_Width    = 120;
  814.       bp.bp_Height   = 80;
  815.       bp.bp_BitMap   = screen->RastPort.BitMap;
  816.  
  817.       /*
  818.       ** Open window.
  819.       **/
  820.       window = WindowOpen(WA_BFill);
  821.    }
  822.  
  823.    return( window );
  824. }
  825.  
  826. /*
  827. ** Cycle and Mx labels.
  828. **/
  829. UBYTE *PageLab[] = { "_Buttons", "_Strings", "_CheckBoxes", "_Radio-Buttons", NULL };
  830. UBYTE *MxLab[]  = { "MX #_1",   "MX #_2",   "MX #_3",      "MX #_4",         NULL };
  831.  
  832. /*
  833. ** Cycle to Page map-list.
  834. **/
  835. ULONG Cyc2Page[] = { MX_Active, PAGE_Active, TAG_END };
  836.  
  837. /*
  838. ** Create a MX object with a title on top.
  839. **/
  840. #define MxGadget(label,labels)\
  841.    MxObject,\
  842.       GROUP_Style,      GRSTYLE_VERTICAL,\
  843.       LAB_Label,     label,\
  844.       LAB_Place,     PLACE_ABOVE,\
  845.       LAB_Underscore,         '_',\
  846.       LAB_Highlight,    TRUE,\
  847.       MX_Labels,     labels,\
  848.       MX_LabelPlace,    PLACE_LEFT,\
  849.    EndObject, FixMinSize
  850.  
  851. /*
  852. ** Tabs-key control of the tabs gadget.
  853. **/
  854. #ifdef __STORM__
  855. VOID SAVEDS ASM TabHookFunc( REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct IntuiMessage *msg )
  856. #else
  857. SAVEDS ASM VOID TabHookFunc( REG(a0) struct Hook *hook, REG(a2) Object *obj, REG(a1) struct IntuiMessage *msg )
  858. #endif
  859. {
  860.    struct Window        *window;
  861.    Object            *mx_obj = ( Object * )hook->h_Data;
  862.    ULONG           pos;
  863.  
  864.    /*
  865.    ** Obtain window pointer and
  866.    ** current tab position.
  867.    **/
  868.    GetAttr( WINDOW_Window, obj,  ( ULONG * )&window );
  869.    GetAttr( MX_Active,  mx_obj, &pos );
  870.  
  871.    /*
  872.    ** What key is pressed?
  873.    **/
  874.    if ( msg->Code == 0x42 ) {
  875.       if ( msg->Qualifier & ( IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT )) pos--;
  876.       else                          pos++;
  877.       SetGadgetAttrs(( struct Gadget * )mx_obj, window, NULL, MX_Active, pos, TAG_END );
  878.    }
  879. }
  880.  
  881. struct Hook TabHook = { NULL, NULL, ( HOOKFUNC )TabHookFunc, NULL, NULL };
  882.  
  883. /*
  884. ** Open pages window.
  885. **/
  886. struct Window *OpenPagesWindow( void )
  887. {
  888.    Object            *c, *p, *m, *s1, *s2, *s3;
  889.    struct Window        *window = NULL;
  890.  
  891.    /*
  892.    ** Not yet created?
  893.    **/
  894.    if ( ! WA_Pages ) {
  895.       /*
  896.       ** Create tabs-object.
  897.       **/
  898.       c = Tabs( NULL, PageLab, 0, 0 );
  899.  
  900.       /*
  901.       ** Put it in the hook data.
  902.       **/
  903.       TabHook.h_Data = ( APTR )c;
  904.  
  905.       WA_Pages = WindowObject,
  906.          WINDOW_Title,           "BGUI pages",
  907.          WINDOW_RMBTrap,         TRUE,
  908.          WINDOW_SmartRefresh,    TRUE,
  909.          WINDOW_HelpText,        PagesHelp,
  910.          WINDOW_AutoAspect,      TRUE,
  911.          WINDOW_IDCMPHookBits,   IDCMP_RAWKEY,
  912.          WINDOW_IDCMPHook,       &TabHook,
  913.          WINDOW_SharedPort,      SharedPort,
  914.          WINDOW_AutoKeyLabel,    TRUE,
  915.          WINDOW_MasterGroup,
  916.             VGroupObject, NormalOffset, NormalSpacing,
  917.                StartMember, c, FixMinHeight, EndMember,
  918.                StartMember,
  919.                   p = PageObject,
  920.                      /*
  921.                      ** Button page.
  922.                      **/
  923.                      PageMember,
  924.                         VGroupObject, NormalSpacing,
  925.                            VarSpace(DEFAULT_WEIGHT),
  926.                            StartMember, PrefButton( "Button #_1", 0 ), FixMinHeight, EndMember,
  927.                            StartMember, PrefButton( "Button #_2", 0 ), FixMinHeight, EndMember,
  928.                            StartMember, PrefButton( "Button #_3", 0 ), FixMinHeight, EndMember,
  929.                            VarSpace(DEFAULT_WEIGHT),
  930.                         EndObject,
  931.                      /*
  932.                      ** String page.
  933.                      **/
  934.                      PageMember,
  935.                         VGroupObject, NormalSpacing,
  936.                            VarSpace(DEFAULT_WEIGHT),
  937.                            StartMember, s1 = PrefString( "String #_1", "", 256, 0 ), FixMinHeight, EndMember,
  938.                            StartMember, s2 = PrefString( "String #_2", "", 256, 0 ), FixMinHeight, EndMember,
  939.                            StartMember, s3 = PrefString( "String #_3", "", 256, 0 ), FixMinHeight, EndMember,
  940.                            VarSpace(DEFAULT_WEIGHT),
  941.                         EndObject,
  942.                      /*
  943.                      ** CheckBox page.
  944.                      **/
  945.                      PageMember,
  946.                         VGroupObject, NormalSpacing,
  947.                            VarSpace(DEFAULT_WEIGHT),
  948.                            StartMember,
  949.                               HGroupObject,
  950.                                  VarSpace(DEFAULT_WEIGHT),
  951.                                  StartMember,
  952.                                     VGroupObject, NormalSpacing,
  953.                                        StartMember, PrefCheckBox( "CheckBox #_1", FALSE, 0 ), EndMember,
  954.                                        StartMember, PrefCheckBox( "CheckBox #_2", FALSE, 0 ), EndMember,
  955.                                        StartMember, PrefCheckBox( "CheckBox #_3", FALSE, 0 ), EndMember,
  956.                                     EndObject, FixMinWidth,
  957.                                  EndMember,
  958.                                  VarSpace(DEFAULT_WEIGHT),
  959.                               EndObject,
  960.                            EndMember,
  961.                            VarSpace(DEFAULT_WEIGHT),
  962.                         EndObject,
  963.                      /*
  964.                      ** Mx page.
  965.                      **/
  966.                      PageMember,
  967.                         VGroupObject,
  968.                            VarSpace(DEFAULT_WEIGHT),
  969.                            StartMember,
  970.                               HGroupObject,
  971.                                  VarSpace( DEFAULT_WEIGHT ),
  972.                                  StartMember, m = MxGadget( "_Mx Object", MxLab ), EndMember,
  973.                                  VarSpace( DEFAULT_WEIGHT ),
  974.                               EndObject, FixMinHeight,
  975.                            EndMember,
  976.                            VarSpace(DEFAULT_WEIGHT),
  977.                         EndObject,
  978.                   EndObject,
  979.                EndMember,
  980.             EndObject,
  981.       EndObject;
  982.  
  983.       /*
  984.       ** Object OK?
  985.       **/
  986.       if ( WA_Pages ) {
  987.          /*
  988.          ** Connect the cycle to the page.
  989.          **/
  990.          AddMap( c, p, Cyc2Page );
  991.          /*
  992.          ** Set tab-cycling order.
  993.          **/
  994.          DoMethod( WA_Pages, WM_TABCYCLE_ORDER, s1, s2, s3, NULL );
  995.       }
  996.    }
  997.  
  998.    /*
  999.    ** Object OK?
  1000.    **/
  1001.    if ( WA_Pages ) {
  1002.       /*
  1003.       ** Open the window.
  1004.       **/
  1005.       window = WindowOpen( WA_Pages );
  1006.    }
  1007.  
  1008.    return( window );
  1009. }
  1010.  
  1011. /*
  1012. ** Main entry.
  1013. **/
  1014. VOID StartDemo( void )
  1015. {
  1016.    struct Window         *main = NULL, *groups = NULL, *notif = NULL, *info = NULL, *image = NULL, *bfill = NULL, *pages = NULL, *sigwin = ( struct Window * )~0;
  1017.    struct AppMessage      *apm;
  1018.    struct WBArg          *ap;
  1019.    ULONG       sigmask = 0L, sigrec, rc, i, appsig = 0L, id;
  1020.    BOOL        running = TRUE;
  1021.    UBYTE       name[ 256 ];
  1022.  
  1023.    /*
  1024.    ** Create the shared message port.
  1025.    **/
  1026.    if ( SharedPort = CreateMsgPort()) {
  1027.       /*
  1028.       ** Open the main window.
  1029.       **/
  1030.       if ( main = OpenMainWindow( &appsig )) {
  1031.          /*
  1032.          ** OR signal masks.
  1033.          **/
  1034.          sigmask |= ( appsig | ( 1L << SharedPort->mp_SigBit ));
  1035.          /*
  1036.          ** Loop...
  1037.          **/
  1038.          do {
  1039.             /*
  1040.             ** Wait for the signals to come.
  1041.             **/
  1042.             sigrec = Wait( sigmask );
  1043.  
  1044.             /*
  1045.             ** AppWindow signal?
  1046.             **/
  1047.             if ( sigrec & appsig ) {
  1048.                /*
  1049.                ** Obtain AppWindow messages.
  1050.                **/
  1051.                while ( apm = GetAppMsg( WA_Main )) {
  1052.                   /*
  1053.                   ** Get all dropped icons.
  1054.                   **/
  1055.                   for ( ap = apm->am_ArgList, i = 0; i < apm->am_NumArgs; i++, ap++ ) {
  1056.                      /*
  1057.                      ** Build fully qualified name.
  1058.                      **/
  1059.                      NameFromLock( ap->wa_Lock, name, 256 );
  1060.                      AddPart( name, ap->wa_Name, 256 );
  1061.                      /*
  1062.                      ** Add it to the listview.
  1063.                      **/
  1064.                      AddEntry( main, LV_IconList, (APTR)name, LVAP_SORTED );
  1065.                   }
  1066.                   /*
  1067.                   ** Important! We must reply the message!
  1068.                   **/
  1069.                   ReplyMsg(( struct Message * )apm );
  1070.                }
  1071.                /*
  1072.                ** Switch to the Icon page.
  1073.                **/
  1074.                SetGadgetAttrs(( struct Gadget * )PG_Pager, main, NULL, PAGE_Active, 1, TAG_END );
  1075.             }
  1076.  
  1077.             /*
  1078.             ** Find out the which window signalled us.
  1079.             **/
  1080.             if ( sigrec & ( 1 << SharedPort->mp_SigBit )) {
  1081.                while ( sigwin = GetSignalWindow( WA_Main )) {
  1082.  
  1083.                   /*
  1084.                   ** Main window signal?
  1085.                   **/
  1086.                   if ( sigwin == main ) {
  1087.                      /*
  1088.                      ** Call the main-window event handler.
  1089.                      **/
  1090.                      while (( rc = HandleEvent( WA_Main )) != WMHI_NOMORE ) {
  1091.                         switch ( rc ) {
  1092.  
  1093.                            case  WMHI_CLOSEWINDOW:
  1094.                            case  ID_QUIT:
  1095.                               running = FALSE;
  1096.                               break;
  1097.  
  1098.                            case  ID_ABOUT:
  1099.                               Req( main, "OK", ISEQ_C ISEQ_B "\33d8BGUIDemo" ISEQ_N "\33d2\n(C) Copyright 1993-1995 Jaba Development" );
  1100.                               break;
  1101.  
  1102.                            case  ID_MAIN_GROUPS:
  1103.                               /*
  1104.                               ** Open groups window.
  1105.                               **/
  1106.                               if ( ! groups )
  1107.                                  groups = OpenGroupsWindow();
  1108.                               break;
  1109.  
  1110.                            case  ID_MAIN_NOTIF:
  1111.                               /*
  1112.                               ** Open notification window.
  1113.                               **/
  1114.                               if ( ! notif )
  1115.                                  notif = OpenNotifWindow();
  1116.                               break;
  1117.  
  1118.                            case  ID_MAIN_INFO:
  1119.                               /*
  1120.                               ** Open infoclass window.
  1121.                               **/
  1122.                               if ( ! info )
  1123.                                  info = OpenInfoWindow();
  1124.                               break;
  1125.  
  1126.                            case  ID_MAIN_IMAGE:
  1127.                               /*
  1128.                               ** Open images window.
  1129.                               **/
  1130.                               if ( ! image )
  1131.                                  image = OpenImageWindow();
  1132.                               break;
  1133.  
  1134.                            case  ID_MAIN_BFILL:
  1135.                               /*
  1136.                               ** Open backfill window.
  1137.                               **/
  1138.                               if ( ! bfill )
  1139.                                  bfill = OpenFillWindow();
  1140.                               break;
  1141.  
  1142.                            case  ID_MAIN_PAGES:
  1143.                               /*
  1144.                               ** Open pages window.
  1145.                               **/
  1146.                               if ( ! pages )
  1147.                                  pages = OpenPagesWindow();
  1148.                               break;
  1149.  
  1150.                            case  ID_MAIN_ICON_CONT:
  1151.                               /*
  1152.                               ** Switch back to the main page.
  1153.                               **/
  1154.                               SetGadgetAttrs(( struct Gadget * )PG_Pager, main, NULL, PAGE_Active, 0, TAG_END );
  1155.                               /*
  1156.                               ** Clear all entries from the listview.
  1157.                               **/
  1158.                               ClearList( main, LV_IconList );
  1159.                               break;
  1160.                         }
  1161.                      }
  1162.                   }
  1163.  
  1164.                   /*
  1165.                   ** The code below will close the
  1166.                   ** specific window.
  1167.                   **/
  1168.                   if ( sigwin == groups ) {
  1169.                      while (( rc = HandleEvent( WA_Groups )) != WMHI_NOMORE ) {
  1170.                         switch ( rc ) {
  1171.                            case ID_GROUP_W0:
  1172.                            case ID_GROUP_W1:
  1173.                            case ID_GROUP_W2:
  1174.                            case ID_GROUP_W3:
  1175.                               id = rc - ID_GROUP_W0;
  1176.                               GetAttr(STRINGA_LongVal, w[id], &rc);
  1177.                               SetAttrs(w[id], LGO_Weight, rc, TAG_DONE);
  1178.                               break;
  1179.  
  1180.                            case  WMHI_CLOSEWINDOW:
  1181.                               WindowClose( WA_Groups );
  1182.                               groups = NULL;
  1183.                               break;
  1184.                         }
  1185.                      }
  1186.                   }
  1187.  
  1188.                   if ( sigwin == notif ) {
  1189.                      while (( rc = HandleEvent( WA_Notif )) != WMHI_NOMORE ) {
  1190.                         switch ( rc ) {
  1191.                            case  WMHI_CLOSEWINDOW:
  1192.                               WindowClose( WA_Notif );
  1193.                               notif = NULL;
  1194.                               break;
  1195.                         }
  1196.                      }
  1197.                   }
  1198.  
  1199.                   if ( sigwin == info ) {
  1200.                      while (( rc = HandleEvent( WA_Info )) != WMHI_NOMORE ) {
  1201.                         switch ( rc ) {
  1202.                            case  WMHI_CLOSEWINDOW:
  1203.                               WindowClose( WA_Info );
  1204.                               info = NULL;
  1205.                               break;
  1206.                         }
  1207.                      }
  1208.                   }
  1209.  
  1210.                   if ( sigwin == image ) {
  1211.                      while (( rc = HandleEvent( WA_Image )) != WMHI_NOMORE ) {
  1212.                         switch ( rc ) {
  1213.                            case  WMHI_CLOSEWINDOW:
  1214.                               WindowClose( WA_Image );
  1215.                               image = NULL;
  1216.                               break;
  1217.                         }
  1218.                      }
  1219.                   }
  1220.  
  1221.                   if ( sigwin == bfill ) {
  1222.                      while (( rc = HandleEvent( WA_BFill )) != WMHI_NOMORE ) {
  1223.                         switch ( rc ) {
  1224.                            case  WMHI_CLOSEWINDOW:
  1225.                               WindowClose( WA_BFill );
  1226.                               bfill = NULL;
  1227.                               break;
  1228.                         }
  1229.                      }
  1230.                   }
  1231.  
  1232.                   if ( sigwin == pages ) {
  1233.                      while (( rc = HandleEvent( WA_Pages )) != WMHI_NOMORE ) {
  1234.                         switch ( rc ) {
  1235.                            case  WMHI_CLOSEWINDOW:
  1236.                               WindowClose( WA_Pages );
  1237.                               pages = NULL;
  1238.                               break;
  1239.                         }
  1240.                      }
  1241.                   }
  1242.                }
  1243.             }
  1244.          } while ( running );
  1245.       }
  1246.       /*
  1247.       ** Dispose of all window objects.
  1248.       **/
  1249.       if ( WA_Pages )         DisposeObject( WA_Pages );
  1250.       if ( WA_BFill )         DisposeObject( WA_BFill );
  1251.       if ( WA_Image )         DisposeObject( WA_Image );
  1252.       if ( WA_Info )    DisposeObject( WA_Info );
  1253.       if ( WA_Notif )         DisposeObject( WA_Notif );
  1254.       if ( WA_Groups )  DisposeObject( WA_Groups );
  1255.       if ( WA_Main )    DisposeObject( WA_Main );
  1256.       /*
  1257.       ** Delete the shared message port.
  1258.       **/
  1259.       DeleteMsgPort( SharedPort );
  1260.    } else
  1261.       Tell( "Unable to create a message port.\n" );
  1262. }
  1263.